home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Fall / rerun-1985-fall.d64 / home run derby (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  5.5 KB  |  117 lines
  1. 10 dimj(26),js(26):fort=16to26:readj(t),js(t):next
  2. 15 poke53281,5:print"[154][147]","[144] control pitches  y/n?":jj=49192:jv=56321
  3. 20 getp$:ifp$=""then20
  4. 25 poke53281,0:poke53280,0:print,"[155]please wait . . ."
  5. 30 x$="":b$=x$+"ball":s$=x$+"strike":bs$=x$+"[144]      "
  6. 35 s=54272:forl=0to24:pokes+l,0:next
  7. 40 v=53248:pokev+16,128:fort=0to7:poket+2040,192+t:next
  8. 45 fort=12288to12414:poket,0:next
  9. 50 fort=12736to12798step3:poket,252:poket+1,0:poket+2,0:next
  10. 55 s3=196:tu=1:x=8:y=3:gosub235:pokev+39,1:pokev+40,0:pokev+46,4:pokev+23,128
  11. 60 fort=1to5:reada,b:pokea,b:next:fort=1to8:reada(t),b(t),c(t),d(t),e(t):next
  12. 65 ifg=1then80
  13. 70 fort=12416to12735:reada:poket,a:next
  14. 75 fort=49152to49648:reada:poket,a:next
  15. 80 sys49478:print"";:l$="[158][209][209][209][209][209][209][209]"
  16. 85 fort=1to3:printl$;:next:print:c=c+1:ifc<5then85
  17. 90 l$="[129] ":k=k+1:ifk<4then85
  18. 95 pi=9:in=1:gosub330:gosub280
  19. 100 pokev+21,155:pokev+6,25:pokev+7,189:pokev+14,82:pokev+15,171:gosub310
  20. 105 pokev+8,120:pokev+9,189:poke2043,194:poke2044,s3
  21. 110 yy=0:xy=rnd(0)*30+1:yx=rnd(0)*3+2:ifyx<3thenyy=xy
  22. 115 py=1:ifp$="n"thenpy=0:goto130
  23. 120 j1=31-(peek(jv)and31):ifj1<16then120
  24. 125 yx=js(j1):poke780,j(j1):jj=49195
  25. 130 printbs$:s3=s3+1:fort=1to300:next
  26. 135 poke2044,s3:ifs3<198then130
  27. 140 pokev,120:pokev+1,200:pokev+31,0:pokev+2,120:pokev+3,215
  28. 145 poke49406,192:poke49663,1:pokev+16,128:poke2,yx:poke49230,pzandpy:sys jj
  29. 150 a=peek(v+1):x=abs(37-(peek(v))):ifpeek(2043)=195then165
  30. 155 ifa<198ora>202thenpi=pi+1:printb$:goto185
  31. 160 prints$:goto185
  32. 165 ifx>9then185
  33. 170 ifa<198ora>202thensys49547:goto185
  34. 175 x=19-x*2-yx:ifx<1thenx=1
  35. 180 gosub190:poke2044,196:sys49274
  36. 185 gosub195:s3=196:goto100
  37. 190 poke251,x+yy:poke254,x:return
  38. 195 iftu=-1then210
  39. 200 x=8:y=3:gosub235:ifpeek(v+16)=131andpeek(v)>85thenbl=bl+1
  40. 205 goto215
  41. 210 x=3:y=8:gosub235:ifpeek(v+16)=131andpeek(v)>85thenre=re+1
  42. 215 ifpi>1then230
  43. 220 tu=-tu:jv=jv+tu:pz=pz-tu:iftu=1thenin=in+1:gosub330:ifin>9thengosub240
  44. 225 gosub230:pi=10:gosub280:pokev,0:pokev+1,0:pokev+3,0:goto195
  45. 230 pi=pi-1:gosub330:return
  46. 235 fort=43to45:pokev+t,x:next:pokev+41,y:pokev+42,y:return
  47. 240 ifre=blthenreturn
  48. 245 fort=55296tot+240:poket,0:next
  49. 250 wi$="blue":ifre>bethenwi$="red"
  50. 255 print"[158]","  nice game, "wi$"  "
  51. 260 print""," play again?  y/n":poke198,0
  52. 265 geta$:ifa$=""then265
  53. 270 ifa$<>"n"thenclr:restore:g=1:goto10
  54. 275 end
  55. 280 pokes+5,35:pokes+6,247:pokes+24,15
  56. 285 pokes+12,35 :pokes+13,247
  57. 290 fort=1to8:pokes,b(t):pokes+1,a(t):pokes+7,d(t):pokes+8,c(t)
  58. 295 pokes+4,17:pokes+11,17
  59. 300 fori=1toe(t)*50:next
  60. 305 pokes+4,16:pokes+11,16:fori=1to50:next:next
  61. 310 pokes+5,192:pokes+6, 64+7:pokes+1,6:pokes,59:pokes+4,128
  62. 315 pokes+19,15:pokes+20,248:pokes+14,99:pokes+15,159
  63. 320 pokes+12,15:pokes+13,247:pokes+7,128:pokes+8,8:pokes+18,128
  64. 325 return
  65. 330 print"","[157][157] blue    [157][157][157]"bl,,"[157][157] red    [157][157][157]"re
  66. 335 print,,"[156][157][157]  inning          [157][157][157]"in:print,,"[156][157][157]  pitches left    [157][157][157]"pi
  67. 340 return
  68. 345 data 99,3,0,3,255,3,,,99,2,0,2,255,2,,,99,4,0,5,255,5
  69. 350 data 12361,124,12364,248,12288,112,12291,240,12294,224
  70. 355 data 0,0,0,0,0,16,195,12,143,6,33,135,25,30,2,28,49,22,96,2
  71. 360 data 25,30,21,31,2,21,31,16,195,2,25,30,21,31,8,18,209,15,210,16
  72. 365 data 40,190,0,241,239,0,243,126,252,243,187,252,243,240,96,243,163,24,115
  73. 370 data 160,8,113,128,120,112,131,192,56,65,0,56,63,0,56,127,128,24,251
  74. 375 data 128,31,239,128,31,223,128,7,50,128,0,127,128,0,247,128,1,247,128
  75. 380 data 1,227,224,3,243,254,168,0,254,7,1,223,7,3,119,191,3,126,255
  76. 385 data 3,187,239,3,240,30,3,147,14,1,128,124,1,131,220,0,193,28,0
  77. 390 data 63,56,0,127,184,0,255,240,0,255,224,0,255,224,0,114,128,0,127
  78. 395 data 128,0,125,128,0,251,128,0,243,224,1,243,248,168,0,252,0,1,254
  79. 400 data 0,3,255,0,2,223,0,255,251,0,255,255,128,2,7,128,14,231,128
  80. 405 data 8,7,128,110,224,128,63,192,128,4,1,0,3,254,0,0,62,128,0
  81. 410 data 31,196,0,15,238,0,15,254,0,9,62,0,15,244,0,3,240,0,31
  82. 415 data 252,168,0,56,60,0,30,126,0,7,239,0,3,251,56,55,127,112,56
  83. 420 data 103,112,30,39,120,5,230,28,4,8,14,2,112,7,3,192,3,135,192
  84. 425 data 1,207,224,1,247,224,0,251,224,0,125,112,0,62,112,0,20,48,0
  85. 430 data 28,60,0,28,28,0,254,0,0,0,0,0,0,0,0,0,0,0,1
  86. 435 data 240,0,3,252,0,7,254,0,7,255,0,3,127,128,15,207,128,63,15
  87. 440 data 128,2,97,192,3,190,96,0,127,120,0,255,188,1,231,190,3,143,127
  88. 445 data 7,13,183,14,24,255,28,57,254,28,33,239,0,7,63,233
  89. 450 data 120,169,13,141,20,3,169,192,141,21,3,88,96,162,31,234,173,27
  90. 455 data 212,201,240,176,249,168,173,27,212,41,15,153,64,217,234,202,208,236
  91. 460 data 76,49,234,234,173,27,212,201,64,144,12,201,192,176,16,169,0,141
  92. 465 data 88,192,76,77,192,169,206,141,91,192,76,72,192,169,238,141,91,192
  93. 470 data 169,8,141,88,192,173,0,220,41,16,240,32,173,27,212,201,8,176
  94. 475 data 3,238,1,208,206,0,208,206,2,208,173,0,208,240,16,164,2,202
  95. 480 data 208,253,136,208,250,76,77,192,169,195,32,193,193,96,169,143,141,253
  96. 485 data 192,169,16,141,163,192,169,38,141,156,192,169,206,141,182,192,234,198
  97. 490 data 251,165,251,208,23,198,80,165,80,208,13,24,102,253,165,253,133,80
  98. 495 data 201,0,240,89,133,252,165,254,133,251,198,252,165,252,208,7,165,253
  99. 500 data 133,252,238,1,208,238,2,208,238,0,208,173,0,208,208,5,169,131
  100. 505 data 141,16,208,32,159,193,173,255,193,240,42,173,30,208,201,129,208,36
  101. 510 data 169,17,141,11,212,238,1,208,32,184,193,169,16,141,11,212,206,2
  102. 515 data 208,206,0,208,173,1,208,205,3,208,208,231,234,234,234,234,234,96
  103. 520 data 76,143,192,173,182,192,201,238,240,28,169,8,133,80,133,253,169,16
  104. 525 data 133,251,169,0,141,163,192,169,102,141,156,192,169,238,141,182,192,76
  105. 530 data 143,192,169,34,141,253,192,169,193,141,254,192,173,16,208,201,131,208
  106. 535 data 7,173,0,208,201,240,176,8,173,1,208,205,3,208,208,1,96,76
  107. 540 data 233,193,162,240,169,81,157,63,5,202,208,250,162,160,138,157,255,3
  108. 545 data 157,159,4,157,255,215,157,159,216,202,208,241,162,200,169,160,157,31
  109. 550 data 7,202,208,250,169,128,141,27,212,141,15,212,169,129,141,18,212,162
  110. 555 data 40,169,120,157,47,6,169,4,157,47,218,202,208,243,76,0,192,164
  111. 560 data 2,202,208,253,136,208,250,206,0,208,206,2,208,173,2,208,208,237
  112. 565 data 96,173,16,208,201,131,208,18,173,0,208,201,96,144,6,169,0,141
  113. 570 data 255,193,96,169,1,141,255,193,160,6,202,208,253,136,208,250,96,141
  114. 575 data 251,7,173,0,208,201,47,176,4,201,28,176,4,32,139,193,96,169
  115. 580 data 1,133,253,133,252,133,80,169,129,141,4,212,141,18,212,169,128,141
  116. 585 data 18,212,96,169,128,141,4,212,76,182,192
  117.